## Not run:
# suppressMessages(library(cubfits, quietly = TRUE))
#
# seq.data <- read.seq(get.expath("seq_200.fasta"))
# phi.df <- read.phi.df(get.expath("phi_200.tsv"))
# aa.names <- c("A", "C", "D")
#
# # Read in from FASTA file.
# seq.string <- convert.seq.data.to.string(seq.data)
# ## End(Not run)
Run the code above in your browser using DataLab